﻿
Namespace Services

    Public Class ServiceManager

        Private Shared _instance As ServiceManager

        Public Shared Function GetInstance() As ServiceManager
            If _instance Is Nothing Then _
                _instance = New ServiceManager
            Return _instance
        End Function

        Private Sub New()
        End Sub

        Private _amazonService As AmazonDataService

        Private Const ACCESS_KEY_ID As String = ""
        Private Const SECRET_KEY As String = ""
        Private Const ENDPOINT_ADDRESS As String = "https://webservices.amazon.de/onca/soap?Service=AWSECommerceService"

        Public Function GetAmazonDataService() As AmazonDataService
            If _amazonService Is Nothing Then _
                _amazonService = New AmazonDataService(ACCESS_KEY_ID, SECRET_KEY, ENDPOINT_ADDRESS)
            Return _amazonService
        End Function

    End Class

End Namespace